home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff1.arc / INLINE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-11-05  |  899 b   |  32 lines
  1.  
  2. program InLineSample;
  3. {
  4.        The following program example divides even integers by two.
  5.        For odd integers this program returns -32768 + the value
  6.        divided by two (integer division)
  7. }
  8. var
  9.   Value : Integer;
  10.  
  11. procedure VInLine(var Value:Integer);
  12. begin
  13.   inline
  14.     ($C4/$BE/VALUE/             { LES     DI,VALUE[BP]     }
  15.      $F8/                       { CLC                      }
  16.      $26/$D0/$1D/               { RCR     ES:BYTE PTR [DI] }
  17.      $47/                       { INC     DI               }
  18.      $26/$D0/$1D);              { RCR     ES:BYTE PTR [DI] }
  19. end; { of proc VInLine }
  20.  
  21. begin { main body of program InLineSample }
  22.   ClrScr;
  23.   repeat
  24.     Write('Enter a number, <0> to quit: ');
  25.     ReadLn(Value);
  26.     VInLine(Value);
  27.     WriteLn('Return Value is:            ',Value);
  28.   until Value = 0;
  29.   ClrScr;
  30. end. { of program InLineSample }
  31.  
  32.